home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / liga-master v3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  23KB  |  844 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem * autor : siehe ab zeile  63000 *
  4. 4 rem *                               *
  5. 5 rem *********************************
  6. 6 poke2,peek(2)+1:ifpeek(2)>3then180
  7. 7 loadstr$(peek(2))+"*",8,1
  8. 8 data121,20,20,20,121,0
  9. 9 data57,68,68,68,57,0
  10. 10 data60,65,64,65,60,0
  11. 11 ======== unterprogramme =============
  12. 12 rem moment
  13. 13 print:printtab(tb)"[205]oment ...":return
  14. 14 rem taste
  15. 15 poke198,0:wait198,1:geta$:return
  16. 20 rem zentrieren
  17. 25 printtab((40-len(z$))/2);z$:return
  18. 30 rem space
  19. 35 print"";:z$="[170][167] [211][208][193][195][197] [190][191]":gosub25
  20. 40 gosub15:ifa$<>" "anda$<>"x"then40
  21. 45 return
  22. 50 rem fehlerkanal
  23. 55 z$=""
  24. 60 get#15,a$:z$=z$+a$:ifa$<>chr$(13)then60
  25. 65 fk$=z$:a=val(z$):ifa<2thenreturn
  26. 71 print"[147]":gosub25:print:print:print:gosub35
  27. 72 return
  28. 75 rem korrekt ?
  29. 80 z$="[150][203]orrekt ([202]/[206]) ?":gosub25:return
  30. 85 rem input / get
  31. 90 e$="":dp%=0:poke204,0
  32. 95 gosub15
  33. 100 ifa$=chr$(13)then130
  34. 105 ifa$=":"andlen(e$)<9thendp%=dp%+1:a$="[169]":printa$;:e$=e$+a$:goto95
  35. 110 if(a$>="-"anda$<="9"anda$<>"/")andlen(e$)<9thenprinta$;:e$=e$+a$
  36. 115 l=len(e$)-1:ifa$=chr$(20)andright$(e$,1)="[169]"thendp%=dp%-1
  37. 120 ifa$=chr$(20)andl>=0thenprinta$;:e$=left$(e$,l)
  38. 125 goto95
  39. 130 ife$=""thene$=e$(sp,i):printe$;:goto135
  40. 131 ifdp%<>1then95
  41. 135 poke204,1:print" ":return
  42. 140 rem von / bis
  43. 145 af=val(st$)
  44. 150 ifaf<0thened=(abs(af)>as*rr%)*-as*rr%+int(not(abs(af)>as*rr%))*af:af=1:return
  45. 155 ifright$(st$,1)="-"thened=as*rr%:return
  46. 160 po%=0:forjj=1tolen(st$):ifmid$(st$,jj,1)="-"thenpo%=jj
  47. 162 next
  48. 165 ifpo%=0thened=af:return
  49. 170 ed=val(mid$(st$,po%+1)):return
  50. 175 ========== initialisieren ==========
  51. 180 dimm$(2,20),z$(20),g(38,10),h(38,10),d$(38),e$(38,10),li$(1),c$(6)
  52. 185 dimpp(20),mp(20),pt(20),mt(20),gw(20),un(20),vl(20),pl(20)
  53. 186 pl(0)=-1
  54. 190 fori=0to20:z$(i)=right$(str$(i),2):next
  55. 200 fori=1to3:c$(i)=chr$(8):forj=1to6:reada
  56. 201 c$(i)=c$(i)+chr$(a+128):next:c$(i)=c$(i)+chr$(15):next
  57. 203 restore:fori=4to6:c$(i)=chr$(8):forj=1to6:reada
  58. 204 c$(i)=c$(i)+chr$(a+128)+chr$(a+128):next:c$(i)=c$(i)+chr$(14):next
  59. 217 open15,8,15:open3,0:dr=3:poke251,66
  60. 220 sp$="                                        ":sp$=sp$+sp$
  61. 225 mu$="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  62. 226 ifpeek(789)<>194thengosub18500
  63. 227 sys50432:goto230
  64. 228 ============ hauptmen^ =============
  65. 230 print"[147]":printli$(0)
  66. 240 print""mu$:print"[145][145]";:z$=" [200] a u p t m e n ^ ":gosub25
  67. 250 print"[193]) [212]abelle           [198]) neue [204]iga
  68. 260 [153]"peek) valrgebnisse ausg.  chr$) str$aten l*schen
  69. 270 print"[195]) restliche [211]piele  [200]) [193]usgabeger@t
  70. 272 [139]dr[178]4[167][153][163]24)"peekildschirm":[137]280
  71. 275 [153][163]24)"str$rucker"
  72. 280 [153]"str$) valrgebnisse eing.  right$) (NULL)hr stellen
  73. 290 print"[197]) [196]isk              [195][212][210][204] [202]) [197]nde
  74. 300 [153]mu$
  75. 310 [141]15
  76. 315 [139]a$[178][199](10)[167]16000
  77. 320 [139]a$[179]"a"[176]a$[177]"i"[167]310
  78. 340 [145][198](a$)[171]64[137]3000,5000,9000,7000,15000,31000,500,18000,1000
  79. 499 [178][178][178][178][178][178][178][178][178][178][178] daten l[172]schen [178][178][178][178][178][178][178][178][178][178]
  80. 500 [153]"load"li$(0):z$[178]" str$ a t e n   l * s c h e n "
  81. 510 [153]""mu$:[153]"onon";:[141]25
  82. 520 [153][163]12)"1) alle"         
  83. 530 [153][163]12)"2) (NULL)pieltag"
  84. 540 [153][163]12)"3) left$auptmen^"         
  85. 550 [153]mu$
  86. 560 [141]15
  87. 570 [139]a$[179]"1"[176]a$[177]"3"[167]560
  88. 580 [139]a$[178]"3"[167]230
  89. 590 [133]"load (NULL)icher ";si$
  90. 600 [139][200](si$,1)[179][177]"j"[167]500
  91. 610 [139]a$[178]"1"[167][138]180
  92. 620 [141]17000:[139]af[178]1[175]ed[178]as[172]rr%[167]670
  93. 630 [153]"":tb[178]14:[141]13
  94. 640 [129]sp[178]af[164]ed
  95. 641 [129]ii[178]1[164]nm[173]2:eg$(ii)[178]"-step-":e$(sp,ii)[178]"-step-":[130]
  96. 650 [141]7280
  97. 660 [130]:[137]230
  98. 670 [129]i[178]1[164]nm:pp(i)[178]0:mp(i)[178]0:pt(i)[178]0:mt(i)[178]0:gw(i)[178]0:un(i)[178]0:vl(i)[178]0:[130]
  99. 680 [129]i[178]1[164]as[172]rr%:[129]j[178]1[164]nm[173]2:e$(i,j)[178]"-step-":[130]:[130]:pl(0)[178][171]1
  100. 690 [137]230
  101. 999 [178][178][178][178][178][178][178][178][178][178] uhr stel[195] [178][178][178][178][178][178][178][178][178][178][178][178][178]
  102. 1000 [141]18500:[137]230
  103. 2999 [178][178][178][178][178][178][178][178][178][178][178][178][178] tabelle [178][178][178][178][178][178][178][178][178][178][178][178][178]
  104. 3000 [153]"load"li$(0)
  105. 3010 [153]""mu$
  106. 3020 [153]"onon";:z$[178]" (NULL) a b e l l e ":[141]25
  107. 3030 [153][163]12)"1)closeausgeben"
  108. 3040 [153][163]12)"2)closeeingeben"
  109. 3050 [153][163]12)"3)closeleft$auptmen^"
  110. 3060 [153]mu$
  111. 3070 [141]15
  112. 3080 [139]a$[179]"1"[176]a$[177]"3"[167]3070
  113. 3090 [145][197](a$)[137]3100,4000,230
  114. 3100 tb[178]12:[141]13:[139]pl(0)[179][177][171]1[167]3310
  115. 3105 [129]i[178]1[164]nm:pl(i)[178]0:[130]
  116. 3110 [129]i[178]1[164]nm:[129]j[178]1[164]nm
  117. 3120 [139]pp(i)[179]pp(j)[167]3290
  118. 3130 [139]pp(i)[177]pp(j)[167]3300
  119. 3140 [139]mp(i)[177]mp(j)[167]3290
  120. 3150 [139]mp(i)[179]mp(j)[167]3300
  121. 3160 [139]pt(i)[171]mt(i)[179]pt(j)[171]mt(j)[167]3290
  122. 3170 [139]pt(i)[171]mt(i)[177]pt(j)[171]mt(j)[167]3300
  123. 3180 [139]pt(i)[179]pt(j)[167]3290
  124. 3190 [137]3300
  125. 3290 pl(i)[178]pl(i)[170]1
  126. 3300 [130]:[130]:pl(0)[178]0
  127. 3310 [153]"load":f%[178]0:[139]dr[178]3[167]3315
  128. 3311 [152]4:[152]4,[199](14)"tabelle"[199](15):[152]4
  129. 3312 [152]4,"platz  mannschaft     spiele gw un vl           differenz         pkt"
  130. 3313 [152]4,[199](8)[199](26)[199](210)[199](136)[199](26)[199](210)[199](136)[199](15)
  131. 3315 k[178]0:[129]i[178]1[164]nm:[129]j[178]1[164]nm
  132. 3320 [139]pl(j)[170]1[179][177]i[167]3480
  133. 3325 k[178]k[170]1
  134. 3326 [151]646,1[171](k[173]2[178][181](k[173]2))[172]4
  135. 3330 [139]f%[178]i[167][153]"    ";:[137]3350
  136. 3340 f%[178]i:[153]z$(i)". ";:[139]dr[178]4[167][152]4,i".";
  137. 3350 [153]m$(0,j);:[139]dr[178]4[167][152]4,[199](16)"07"m$(1,j);
  138. 3360 di$[178][201](sp$[170][196]([182](pt(j)[171]mt(j))),5)
  139. 3365 v$[178]" "
  140. 3370 [139]pt(j)[171]mt(j)[177]0[167]v$[178]"+"
  141. 3371 [139]pt(j)[171]mt(j)[179]0[167]v$[178]"-"
  142. 3380 pp$[178][201]([196](pp(j)),2)
  143. 3390 mp$[178][201]([196](mp(j)),2)
  144. 3395 as$[178][201]([196](gw(j)[170]un(j)[170]vl(j)),2)
  145. 3400 [153][163]17)"(NULL) "as$" (NULL) "v$;di$" (NULL) "pp$":"mp$
  146. 3410 [139]dr[178]3[167]3480
  147. 3420 [152]4,[199](16)"24"as$;
  148. 3430 gw$[178][201]([196](gw(j)),2)
  149. 3440 un$[178][201]([196](un(j)),2)
  150. 3450 vl$[178][201]([196](vl(j)),2)
  151. 3455 pt$[178][201](sp$[170][196](pt(j)),5)
  152. 3456 mt$[178][201](sp$[170][196](mt(j)),5)
  153. 3460 [152]4,"   "gw$" "un$" "vl$"   ";
  154. 3470 [152]4,pt$":"mt$"     "v$;di$"   "pp$":"mp$
  155. 3480 [130]:[130]
  156. 3481 [153]:[141]35
  157. 3482 [139]a$[178]"x"[167]3000
  158. 3490 [153]"load"
  159. 3500 f%[178]0:k[178]0:[129]i[178]1[164]nm:[129]j[178]1[164]nm
  160. 3510 [139]pl(j)[170]1[179][177]i[167]3580
  161. 3515 k[178]k[170]1
  162. 3516 [151]646,1[171](k[173]2[178][181](k[173]2))[172]4
  163. 3517 [139]f%[178]i[167][153]"    ";:[137]3530
  164. 3520 f%[178]i:[153]z$(i);". ";
  165. 3530 as$[178][201]([196](gw(j)[170]un(j)[170]vl(j)),2)
  166. 3540 gw$[178][201]([196](gw(j)),2)
  167. 3550 un$[178][201]([196](un(j)),2)
  168. 3560 vl$[178][201]([196](vl(j)),2)
  169. 3565 [153]m$(0,j);
  170. 3570 [153]"  "as$"   "gw$" "un$" "vl$
  171. 3580 [130]:[130]
  172. 3590 [153]:[141]35
  173. 3610 [137]3000
  174. 4000 [153]"loada  alle"
  175. 4010 [129]i[178]1[164]nm
  176. 4020 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  177. 4040 [153]z$(i);". "m$(0,i)
  178. 4050 [130]
  179. 4060 [153]""[163]22)"(NULL)annschaft :"
  180. 4070 [153][163]22);:[132]3,m$
  181. 4075 [139]m$[178]"x"[167]3000
  182. 4080 [139]m$[178]"a"[175]nm[179][177]0[167]af[178]1:ed[178]nm:[137]4115
  183. 4090 m[178][197](m$)
  184. 4100 [139]m[179]1[176]m[177]nm[167][153]"on":[137]4070
  185. 4110 af[178]m:ed[178]m
  186. 4115 [129]i[178]af[164]ed
  187. 4120 [153]"loadsys"m$(0,i)
  188. 4125 [153][163]15)""pp(i)
  189. 4130 [133]"on(NULL)luspunkte....";pp(i)
  190. 4135 [153][163]15)mp(i)
  191. 4140 [133]"on(NULL)inuspunkte...";mp(i)
  192. 4145 [153][163]15)""pt(i)
  193. 4150 [133]"on(NULL)lustore......";pt(i)
  194. 4155 [153][163]15)mt(i)
  195. 4160 [133]"on(NULL)inustore.....";mt(i)
  196. 4165 [153][163]15)""gw(i)
  197. 4170 [133]"ongewonnen......";gw(i)
  198. 4175 [153][163]15)un(i)
  199. 4180 [133]"onunentschieden.";un(i)
  200. 4185 [153][163]15)vl(i)
  201. 4190 [133]"onverloren......";vl(i)
  202. 4200 [153]:[141]80
  203. 4210 [141]15:[139]a$[178]"n"[167]4120
  204. 4220 [139]a$[179][177]"j"[167]4210
  205. 4230 [130]:pl(0)[178][171]1:[137]3000
  206. 4998 [128]
  207. 4999 [178][178][178][178][178][178][178] ergebnisse ausgeben [178][178][178][178][178][178][178]
  208. 5000 [153]"load"li$(0)
  209. 5010 [153]""mu$"on";:z$[178]" val r g e b n i s s e   a u s g . ":[141]25
  210. 5020 [153][163]9)"1) (NULL)pieltag"
  211. 5030 [153][163]9)"2) einzelne (NULL)annschaft"
  212. 5040 [153][163]9)"3) bestimmtes (NULL)piel"
  213. 5050 [153][163]9)"4) left$auptmen^"
  214. 5060 [153]mu$
  215. 5070 [141]15
  216. 5080 [139]a$[179]"1"[176]a$[177]"4"[167]5070
  217. 5090 [145][197](a$)[137]5100,5500,6000,230
  218. 5100 [141]17000:[139]st$[178]"x"[167]5000
  219. 5140 [139]af[179]1[176]af[177]as[172]rr%[167]5100
  220. 5150 [129]sp[178]af[164]ed
  221. 5160 [153]"load"li$(0)
  222. 5170 [153]""sp"cmd. (NULL)pieltag  "s$"    "d$(sp)""
  223. 5180 f%[178]0:[129]i[178]1[164]nm[173]2:[139]e$(sp,i)[178]"-step-"[167]f%[178]f%[170]1
  224. 5190 [130]
  225. 5200 [139]f%[178][181](nm[173]2)[167][153]"  vals liegt noch kein valrgebnis vor !!!":[137]5240
  226. 5206 [139]dr[178]4[167][152]4,sp". spieltag     "d$(sp):[152]4
  227. 5210 [129]i[178]1[164]nm[173]2
  228. 5215 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  229. 5220 [153]m$(0,h(sp,i))"-"m$(0,g(sp,i))" "e$(sp,i)
  230. 5225 [139]dr[178]4[167][141]18100:[152]4
  231. 5230 [130]
  232. 5240 [153]"":[141]35:[130]:[137]5000
  233. 5500 [153]"load"
  234. 5510 [129]i[178]1[164]nm
  235. 5515 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  236. 5520 [153]z$(i)". "m$(0,i)
  237. 5530 [130]
  238. 5540 [153]""[163]22)"(NULL)annschaft :"
  239. 5550 [153][163]22);:[132]3,m$
  240. 5560 [139]m$[178]"x"[167]5000
  241. 5570 m[178][197](m$):[139]m[179]1[176]m[177]nm[167]5540
  242. 5575 [139]dr[178]3[167]5580
  243. 5576 [152]4:[152]4:[152]4,"ergebnisse  "[199](14)m$(2,m)[199](15):[152]4
  244. 5580 k[178]0:[129]sp[178]1[164]as[172]rr%:[139]k[179][177]0[167]5630
  245. 5590 [153]"load"li$(0)
  246. 5600 [153]"sys valrgebnisse "m$(0,m)""
  247. 5630 [129]i[178]1[164]nm[173]2
  248. 5635 [151]646,1[171](k[173]2[178][181](k[173]2))[172]4
  249. 5640 [139]h(sp,i)[179][177]m[176]e$(sp,i)[178]"-step-"[167]5670
  250. 5650 [153]m$(0,g(sp,i))" (left$) "e$(sp,i)[163]29)d$(sp):k[178]k[170]1
  251. 5660 [139]dr[178]3[167]5665
  252. 5661 [141]18100:[152]4,[199](16)"49"sp". spieltag  /  "d$(sp)
  253. 5665 [137]5700
  254. 5670 [139]g(sp,i)[179][177]m[176]e$(sp,i)[178]"-step-"[167]5700
  255. 5680 [153]m$(0,h(sp,i))" (atn) "e$(sp,i)[163]29)d$(sp):k[178]k[170]1
  256. 5690 [139]dr[178]3[167]5700
  257. 5695 [141]18100:[152]4,[199](16)"50"sp". spieltag  /  "d$(sp)
  258. 5700 [139]k[178]10[167]k[178]0:[153]:[141]35
  259. 5710 [130]:[130]
  260. 5720 [139]k[179][177]0[167][153]:[141]35
  261. 5730 [137]5000
  262. 6000 [153]"load"
  263. 6010 [129]i[178]1[164]nm
  264. 6015 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  265. 6020 [153]z$(i)". "m$(0,i)
  266. 6030 [130]
  267. 6040 [153]""[163]22)"left$eimmannschaft :"
  268. 6050 [153][163]22);:[132]3,hm$:[139]hm$[178]"x"[175]f2%[178]1[167]f2%[178]0:[137]9000
  269. 6051 [139]hm$[178]"x"[167]5000
  270. 6055 hm[178][197](hm$):[139]hm[179]1[176]hm[177]nm[167][153]"on":[137]6050
  271. 6056 [153]"on":[153][163]22)m$(0,hm)
  272. 6060 [153]"":[153][163]22)"chr$astmannschaft :"
  273. 6070 [153][163]22);:[132]3,gm$
  274. 6080 gm[178][197](gm$):[139]gm[179]1[176]gm[177]nm[167][153]"on":[137]6070
  275. 6090 [153]"on":[153][163]22)m$(0,gm):tb[178]22:[141]13
  276. 6100 f%[178]0:[129]sp[178]1[164]as[172]rr%
  277. 6110 [129]i[178]1[164]nm[173]2
  278. 6120 [139](h(sp,i)[179][177]hm[176]g(sp,i)[179][177]gm)[175](g(sp,i)[179][177]hm[176]h(sp,i)[179][177]gm)[167]6190
  279. 6130 [139]f%[178]0[167]f%[178]1:[153]"load"li$(0)""
  280. 6140 [153]""sp"cmd. (NULL)pieltag "s$"   "d$(sp)
  281. 6150 [153]""m$(0,h(sp,i))"-"m$(0,g(sp,i))" "e$(sp,i)
  282. 6160 [139]dr[178]3[167]6190
  283. 6170 [152]4:[152]4:[152]4,sp". spieltag    "d$(sp)
  284. 6180 [152]4:[141]18100:[152]4
  285. 6190 [130]:[130]
  286. 6200 [139]f%[178]1[167][153]:[141]35:[139]f2%[178]1[167]f2%[178]0:[137]9000
  287. 6205 [139]f%[178]1[167]5000
  288. 6210 [153][163]22)"(NULL)piel wird nicht"
  289. 6220 [153][163]22)"ausgetragen !   "
  290. 6230 [141]15:[139]a$[179][177]" "[167]6230
  291. 6240 [139]f2%[178]1[167]f2%[178]0:[137]9000
  292. 6250 [137]5000
  293. 6999 [178][178][178][178][178][178][178] ergebnisse eingeben [178][178][178][178][178][178][178]
  294. 7000 [153]"load"li$(0)
  295. 7010 [153]""mu$"on";:z$[178]" val r g e b n i s s e   e i n g . "
  296. 7020 [141]25
  297. 7030 [153][163]12)"1) (NULL)pieltag"
  298. 7060 [153][163]12)"2) einzelnes (NULL)piel"
  299. 7070 [153][163]12)"3) left$auptmen^"
  300. 7080 [153]mu$
  301. 7090 [141]15
  302. 7100 [139]a$[179]"1"[176]a$[177]"3"[167]7090
  303. 7110 [145][197](a$)[137]7120,8000,230
  304. 7120 [141]17000:[139]st$[178]"x"[167]7000
  305. 7130 [139]af[179]1[176]af[177]as[172]rr%[167]7120
  306. 7150 [129]sp[178]af[164]ed
  307. 7160 [153]"load"li$(0)
  308. 7170 [153]""sp". (NULL)pieltag "s$[163]29)d$(sp)
  309. 7180 [153]:[129]i[178]1[164]nm[173]2
  310. 7190 [153]m$(0,h(sp,i))"-"m$(0,g(sp,i))[163]30)e$(sp,i)
  311. 7200 [130]
  312. 7210 [153]""[163]30);
  313. 7220 [129]i[178]1[164]nm[173]2
  314. 7230 [141]90:eg$(i)[178]e$:[153][163]30);
  315. 7240 [139][195](e$)[178]9[167][153]"on";
  316. 7270 [130]:tb[178]12:[141]13:[141]7280:[137]7000
  317. 7280 [129]i[178]1[164]nm[173]2:[139]e$(sp,i)[178]"-step-"[167]7350
  318. 7290 h[178][197](e$(sp,i))
  319. 7300 [129]j[178]1[164][195](e$(sp,i))
  320. 7310 [139][202](e$(sp,i),j,1)[178]"step"[167]po[178]j:j[178][195](e$(sp,i))
  321. 7320 [130]
  322. 7330 g[178][197]([202](e$(sp,i),po[170]1))
  323. 7340 fm%[178][171]1:[141]16500
  324. 7350 [139]eg$(i)[178]"-step-"[167]7420
  325. 7355 h[178][197](eg$(i))
  326. 7360 [129]j[178]1[164][195](eg$(i))
  327. 7370 [139][202](eg$(i),j,1)[178]"step"[167]po[178]j:j[178][195](eg$(i))
  328. 7380 [130]
  329. 7390 g[178][197]([202](eg$(i),po[170]1))
  330. 7400 fm%[178]1:[141]16500
  331. 7410 e$(sp,i)[178]eg$(i)
  332. 7420 [130]:pl(0)[178][171]1:[142]
  333. 8000 [153]"load"
  334. 8010 [129]i[178]1[164]nm
  335. 8020 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  336. 8040 [153]z$(i)". "m$(0,i)
  337. 8050 [130]
  338. 8060 [153]""[163]22)"left$eimmannschaft :"
  339. 8070 [153][163]22);:[132]3,hm$:[153]
  340. 8080 [139]hm$[178]"x"[167]7000
  341. 8090 hm[178][197](hm$):[153]"on"[163]22);
  342. 8100 [139]hm[179]1[176]hm[177]nm[167]8070
  343. 8110 [153]m$(0,hm)
  344. 8120 [153]""[163]22)"chr$astmannschaft :"
  345. 8130 [153][163]22);:[132]3,gm$:[153]
  346. 8140 gm[178][197](gm$):[153]"on"[163]22);
  347. 8150 [139]gm[179]1[176]gm[177]nm[167]8070
  348. 8160 [153]m$(0,gm):tb[178]22:[141]13
  349. 8170 sp[178]0:[129]i[178]1[164]as[172]rr%
  350. 8180 [129]j[178]1[164]nm[173]2
  351. 8190 [139]h(i,j)[178]hm[175]g(i,j)[178]gm[167]sp[178]i:k[178]j:i[178]as[172]rr%:j[178]nm[173]2
  352. 8200 [130]:[130]
  353. 8210 [139]sp[179][177]0[167]8230
  354. 8220 [153]""[163]22)"(NULL)piel wird nicht":[153][163]22)"ausgetragen !   "
  355. 8225 [141]15:[137]8000
  356. 8230 [153]"load"li$(0)
  357. 8240 [153]""sp"cmd. (NULL)pieltag  "s$[163]29)d$(sp)
  358. 8250 i[178]k:[139]e$(sp,i)[178]"-step-"[167]8270
  359. 8260 [153]"valrgebnis im (NULL)peicher :   ";e$(sp,i);" "
  360. 8270 [153]""m$(0,hm)" log "m$(0,gm)
  361. 8280 [153]:[153]""
  362. 8290 [139]e$(sp,i)[179][177]"-step-"[167][153]"(NULL)eues ";
  363. 8300 [153]"valrgebnis : ";
  364. 8310 [141]90:tb[178]14:[141]13
  365. 8320 [139]e$(sp,i)[178]"-step-"[167]8390
  366. 8330 h[178][197](e$(sp,i))
  367. 8340 [129]j[178]1[164][195](e$(sp,i))
  368. 8350 [139][202](e$(sp,i),j,1)[178]"step"[167]po[178]j:j[178][195](e$(sp,i))
  369. 8360 [130]
  370. 8370 g[178][197]([202](e$(sp,i),po[170]1))
  371. 8380 fm%[178][171]1:[141]16500
  372. 8390 [139]e$[178]"-step-"[167]8450
  373. 8395 h[178][197](e$)
  374. 8400 [129]j[178]1[164][195](e$)
  375. 8410 [139][202](e$,j,1)[178]"step"[167]po[178]j:j[178][195](e$)
  376. 8420 [130]
  377. 8430 g[178][197]([202](e$,po[170]1))
  378. 8440 fm%[178]1:[141]16500
  379. 8450 e$(sp,i)[178]e$:pl(0)[178][171]1:[137]7000
  380. 8999 [178][178][178][178][178][178][178][178][178] feh[195]de spiele [178][178][178][178][178][178][178][178][178]
  381. 9000 [153]"load"li$(0)
  382. 9010 [153]""mu$:z$[178]" r e s t l i c h e   (NULL) p i e l e "
  383. 9020 [153]"onon";:[141]25
  384. 9030 [153][163]12)"1) (NULL)pieltag"
  385. 9040 [153][163]12)"2) (NULL)estprogramm"
  386. 9050 [153][163]12)"3) (NULL)achholspiele"
  387. 9055 [153][163]12)"4) str$atum e. (NULL)piels"
  388. 9060 [153][163]12)"5) left$auptmen^"
  389. 9070 [153]mu$
  390. 9080 [141]15
  391. 9090 [139]a$[179]"1"[176]a$[177]"5"[167]9080
  392. 9100 [145][197](a$)[137]9120,9500,10000,10500,230
  393. 9120 [141]17000:[139]st$[178]"x"[167]9000
  394. 9160 [139]af[179]1[176]af[177]as[172]rr%[167]9120
  395. 9180 [129]i[178]af[164]ed
  396. 9190 [153]"load"li$(0)
  397. 9200 [153]""i"cmd. (NULL)pieltag  "s$"   "d$(i)""
  398. 9210 f%[178]0:[129]j[178]1[164]nm[173]2
  399. 9220 [139]e$(i,j)[178]"-step-"[167]f%[178]f%[170]1
  400. 9230 [130]
  401. 9240 [139]f%[179][177][181](nm[173]2)[167][153]" (NULL)pieltag wurde bereits ausgetragen !":[137]9280
  402. 9241 [139]dr[178]3[167]9245
  403. 9242 [152]4:[152]4:[152]4,i". spieltag    "d$(i):[152]4
  404. 9245 [129]j[178]1[164]nm[173]2
  405. 9246 [151]646,1[171](j[173]2[178][181](j[173]2))[172]4
  406. 9250 [153]m$(0,h(i,j))"  log  "m$(0,g(i,j))
  407. 9260 [139]dr[178]3[167]9275
  408. 9270 [152]4,m$(1,h(i,j))"  len  "m$(1,g(i,j))
  409. 9275 [130]
  410. 9280 [153]:[141]35
  411. 9290 [130]:[137]9000
  412. 9500 [153]"load":[129]i[178]1[164]nm
  413. 9515 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  414. 9520 [153]z$(i)". "m$(0,i)
  415. 9530 [130]
  416. 9540 [153]""[163]22)"(NULL)annschaft :"
  417. 9550 [153][163]22);:[132]3,m$
  418. 9560 [139]m$[178]"x"[167]9000
  419. 9570 m[178][197](m$)
  420. 9580 [139]m[179]1[176]m[177]nm[167][153]"on":[137]9550
  421. 9610 [139]dr[178]3[167]9630
  422. 9620 [152]4:[152]4:[152]4,"restprogramm "[199](14)m$(2,m)[199](15):[152]4
  423. 9630 [153]"load"li$(0)
  424. 9633 [153]"sys (NULL)estprogramm : "m$(0,m)""
  425. 9635 k[178]0:[129]sp[178]1[164]as[172]rr%:[139]k[179][177]0[167]9640
  426. 9640 [129]i[178]1[164]nm[173]2
  427. 9650 [151]646,1[171](k[173]2[178][181](k[173]2))[172]4
  428. 9670 [139]h(sp,i)[179][177]m[176]e$(sp,i)[179][177]"-step-"[167]9720
  429. 9680 [153]m$(0,g(sp,i))" (left$)   "d$(sp):k[178]k[170]1
  430. 9690 [139]dr[178]3[167]9770
  431. 9700 [152]4,m$(1,h(sp,i))"  len  "m$(1,g(sp,i))[199](16)"39";
  432. 9705 [152]4,sp". spieltag  /  "d$(sp)
  433. 9710 [137]9770
  434. 9720 [139]g(sp,i)[179][177]m[176]e$(sp,i)[179][177]"-step-"[167]9770
  435. 9730 [153]m$(0,h(sp,i))" (atn)   "d$(sp):k[178]k[170]1
  436. 9740 [139]dr[178]3[167]9770
  437. 9750 [152]4,m$(1,h(sp,i))"  len  "m$(1,g(sp,i))[199](16)"39";
  438. 9760 [152]4,sp". spieltag  /  "d$(sp)
  439. 9770 [139]k[178]10[167]k[178]0:[153]:[141]35:[153]"load"li$(0):[153]"sys (NULL)estprogramm : "m$(0,m)""
  440. 9780 [130]:[130]
  441. 9790 [139]k[179][177]0[167][153]:[141]35
  442. 9800 [137]9000
  443. 9999 [128]
  444. 10000 [153]"load"
  445. 10010 [139]dr[178]4[167][152]4:[152]4:[152]4,[199](14)"nachholspiele :"[199](15):[152]4
  446. 10015 [153]"load"li$(0)
  447. 10016 [153]"sys (NULL)achholspiele : "
  448. 10020 k[178]0:[129]sp[178]1[164]as[172]rr%
  449. 10030 f%[178]0:[129]i[178]1[164]nm[173]2
  450. 10040 [139]e$(sp,i)[178]"-step-"[167]f%[178]f%[170]1
  451. 10050 [130]
  452. 10060 [139]f%[178][181](nm[173]2)[167]10140
  453. 10070 [129]i[178]1[164]nm[173]2:[139]k[179][177]0[167]10080
  454. 10080 [139]e$(sp,i)[179][177]"-step-"[167]10135
  455. 10085 [151]646,1[171](k[173]2[178][181](k[173]2))[172]4
  456. 10090 [153]""sp"cmd. (NULL)pieltag  "s$
  457. 10100 [153]""m$(0,h(sp,i))"-"m$(0,g(sp,i)):k[178]k[170]1
  458. 10110 [139]dr[178]3[167]10130
  459. 10120 [152]4,m$(1,h(sp,i))"  len  "m$(1,g(sp,i))[199](16)"50";
  460. 10125 [152]4,sp". spieltag"
  461. 10130 [139]k[178]3[167]k[178]0:[153]:[141]35:[153]"load"li$(0):[153]"sys (NULL)achholspiele : "
  462. 10135 [130]
  463. 10140 [130]
  464. 10150 [139]k[179][177]0[167][153]:[141]35:[137]9000
  465. 10160 [137]9000
  466. 10500 f2%[178]1:[137]6000
  467. 14999 [178][178][178][178][178][178][178][178][178][178][178][178][178][178] disk [178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  468. 15000 [153]"load"li$(0)
  469. 15010 [153]""mu$:[153]"onon";:z$[178]" str$ i s k ":[141]25
  470. 15020 [153]"1) str$aten laden        6) str$atei l*schen
  471. 15030 print"2) [196]aten speichern    7) [203]ommentar in
  472. 15035 [153][163]25)"str$irectory einf.";
  473. 15040 [153]"3) str$irectory ascormat 1 8) peekefehlskanal
  474. 15050 print"4) [196]irectory [198]ormat 2 9) [198]ehlerkanal
  475. 15055 [153]"5) str$irectory validate 0) left$auptmen^
  476. 15060 print""mu$
  477. 15070 gosub15:ifa$<"0"ora$>"9"then15070
  478. 15080 onval(a$)+1goto230,20000,21000,15100,22000,22700,22500,20500,15200,15090
  479. 15090 gosub55:ifa<2thenprint"[147]":gosub25:gosub35
  480. 15095 goto15000
  481. 15100 print"[147]":fori=1to15:next:sys49152:ifst<>64thengosub55:goto15000
  482. 15110 printtab(8)"[170][167] [210][197][212][213][210][206] [190][191][146]";
  483. 15120 gosub15:ifa$<>chr$(13)then15120
  484. 15130 goto15000
  485. 15200 poke631,34:poke198,1
  486. 15210 print"[147] [194]efehl : ";:input#3,bf$:print
  487. 15250 ifbf$="x"then15000
  488. 15270 ifleft$(bf$,1)="n"thenprint#15,"m-w"chr$(81)chr$(0)chr$(1)chr$(255)
  489. 15280 print#15,bf$:close1:gosub55:goto15000
  490. 15999 =============== ende =============
  491. 16000 input"[147] [211]icher ";si$
  492. 16020 ifleft$(si$,1)="j"thensys64738
  493. 16040 goto230
  494. 16499 ======== punkte errechnen ========
  495. 16500 pt(h(sp,i))=pt(h(sp,i))+h*fm%
  496. 16510 mt(h(sp,i))=mt(h(sp,i))+g*fm%
  497. 16520 pt(g(sp,i))=pt(g(sp,i))+g*fm%
  498. 16530 mt(g(sp,i))=mt(g(sp,i))+h*fm%
  499. 16540 ifh=gthend1=1:d2=1:un(h(sp,i))=un(h(sp,i))+fm%:un(g(sp,i))=un(g(sp,i))+fm%
  500. 16550 ifh>gthend1=2:d2=0:gw(h(sp,i))=gw(h(sp,i))+fm%:vl(g(sp,i))=vl(g(sp,i))+fm%
  501. 16560 ifh<gthend1=0:d2=2:vl(h(sp,i))=vl(h(sp,i))+fm%:gw(g(sp,i))=gw(g(sp,i))+fm%
  502. 16570 pp(h(sp,i))=pp(h(sp,i))+d1*fm%
  503. 16580 mp(h(sp,i))=mp(h(sp,i))+d2*fm%
  504. 16590 pp(g(sp,i))=pp(g(sp,i))+d2*fm%
  505. 16600 mp(g(sp,i))=mp(g(sp,i))+d1*fm%
  506. 16610 return
  507. 16999 ======= datum / spieltag =========
  508. 17000 input"[147] [211]pieltag ";st$
  509. 17010 ifst$="x"thenreturn
  510. 17020 ifleft$(st$,2)<>"d;"thengosub145:return
  511. 17030 af=0:ed=0:forii=1toas*rr%
  512. 17040 ifmid$(st$,3)=d$(ii)thenaf=ii:ed=ii:ii=as*rr%
  513. 17050 next
  514. 17060 return
  515. 17999 ====== drucker / bildschirm ======
  516. 18000 ifdr=4thenclose4:dr=3:poke251,66:goto230
  517. 18010 print"[147]":z$="[255]berschrift drucken ([202]/[206]) ?":gosub25
  518. 18011 gosub15:ifa$="x"then230
  519. 18012 ifa$<>"j"anda$<>"n"then18011
  520. 18014 aa$=a$
  521. 18015 ga=4:gosub19000
  522. 18045 open4,4,0:ifaa$="n"then18090
  523. 18050 print#4,tab(20)chr$(14)">>> liga - master <<<"
  524. 18055 print#4
  525. 18060 fori=1to40:print#4,"*";:next:print#4,chr$(15)
  526. 18070 print#4,li$(1);:print#4,spc(5)s$chr$(14)
  527. 18080 fori=1to40:print#4,"*";:next:print#4:print#4,chr$(15)
  528. 18090 dr=4:poke251,68:goto230
  529. 18100 print#4,m$(1,h(sp,i))chr$(16)"18 [195] "m$(1,g(sp,i));
  530. 18110 forkk=1tolen(e$(sp,i)):b$=mid$(e$(sp,i),kk,1)
  531. 18120 ifb$="[169]"thenpo=kk:kk=len(e$(sp,i))
  532. 18130 next
  533. 18140 print#4,chr$(16)"38"left$(e$(sp,i),po-1)" : "mid$(e$(sp,i),po+1);
  534. 18150 return
  535. 18490 ========== uhr stellen ===========
  536. 18500 z$="[170][167] [204][201][199][193] - [205][193][211][212][197][210] [190][191]":print"[147]";:gosub25
  537. 18501 z$="[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188]":gosub25
  538. 18502 print""li$(0)
  539. 18510 print""mu$:print"[145][145]";:z$=" [213] h r   s t e l l e n ":gosub25
  540. 18520 print" [196]atum  ([212]ag)
  541. 18522 [153]" str$atum  ((NULL)onat)
  542. 18524 print" [196]atum  ([202]ahr)
  543. 18530 [153]" (NULL)hrzeit  (left$left$(NULL)(NULL)(NULL)(NULL))"
  544. 18540 [153]""mu$
  545. 18550 [153]""[163]19);:[132]3,ta$:[153]:[153][163]19);
  546. 18551 [139]ta$[178]"x"[175][194](789)[178]194[167][142]
  547. 18552 [139]ta$[178]"x"[167]18500
  548. 18555 [132]3,mo$:mo[178][197](mo$):[153]:[153][163]19);:[132]3,ja$:ja[178][197](ja$):[153]
  549. 18556 ta[178][197](ta$)
  550. 18560 [139]ja[177]1900[167]ja[178]ja[171]1900
  551. 18570 [139]ja[179]80[176]ja[177]99[167]18500
  552. 18580 [139]mo[179]1[176]mo[177]12[167]18500
  553. 18585 [139]ta[179]1[176]ta[177]31[167]18500
  554. 18590 [139](mo[178]4[176]mo[178]6[176]mo[178]9[176]mo[178]11)[175]ta[178]31[167]18500
  555. 18600 [139]mo[178]2[175]ta[177]29[167]18500
  556. 18610 [139]mo[178]2[175]ta[178]29[175]ja[173]4[179][177][181](ja[173]4)[167]18500
  557. 18615 [151]252,ta:[151]253,mo:[151]254,ja
  558. 18620 [153]""[163]19);:[132]3,tm$:[153]
  559. 18630 [158]49408,tm$
  560. 18640 [142]
  561. 18999 [178][178][178][178][178][178][178] ger@t eigeschaltet [178][178][178][178][178][178][178]
  562. 19000 [159]10,ga,0:[160]10:[139]st[177][178]0[167][142]
  563. 19010 [139]ga[178]4[167]ga$[178]"str$rucker"
  564. 19020 [139]ga[178]8[167]ga$[178]"ascloppy"
  565. 19030 [153]"load":z$[178]ga$[170]" einschalten !!":[141]25
  566. 19040 [153]"";:[141]35
  567. 19050 [139]a$[178]"x"[167]230
  568. 19070 [137]19000
  569. 19999 [178][178][178][178][178][178][178][178][178][178] daten laden [178][178][178][178][178][178][178][178][178][178][178]
  570. 20000 z$[178]" str$ a t e n   l a d e n ":s%[178]0:[141]23000:[160]5:[139]a[177]1[167]15000
  571. 20010 [139][200](f2$,1)[178]"(NULL)"[167]20060
  572. 20020 [153]"";:z$[178]" unzul@ssiger asciletyp !! ":[141]25
  573. 20030 [141]15:[139]a$[179][177]" "[167]20030
  574. 20040 [137]20000
  575. 20060 [159]9,8,2,fi$[170]",s,r"
  576. 20065 [141]55
  577. 20066 [139]a[177]1[167][160]9:[141]81:[137]15000
  578. 20070 [132]9,li$(0),li$(1),s$,nm,as
  579. 20080 [129]i[178]1[164]nm:[129]j[178]0[164]2:[132]9,m$(j,i):[130]:[130]
  580. 20090 [132]9,rr%
  581. 20100 [129]i[178]1[164]as[172]rr%:[129]j[178]1[164]nm[173]2:[132]9,h(i,j),g(i,j):[130]:[130]
  582. 20110 [129]i[178]1[164]as[172]rr%:[132]9,d$(i):[130]
  583. 20120 [129]i[178]1[164]as[172]rr%:[129]j[178]1[164]nm[173]2:[132]9,e$(i,j):[130]:[130]
  584. 20130 [129]i[178]1[164]nm
  585. 20140 [132]9,pp(i),mp(i),pt(i),mt(i),gw(i),un(i),vl(i),pl(i)
  586. 20150 [130]:[132]9,pl(0)
  587. 20160 [160]9:[141]55:[137]230
  588. 20499 [178][178][178][178][178][178] kommentar einf[174]gen [178][178][178][178][178][178][178][178]
  589. 20500 s%[178]0:z$[178]" (NULL) o m m e n t a r   e i n f .":zu$[178]" (NULL)or":[141]23000:zu$[178]""
  590. 20505 [139]a[177]1[167][160]5:[141]55:[137]15000
  591. 20510 [153]"load"li$(0):[153]""mu$:[153]"onon";:[141]25
  592. 20520 [153]""mu$:[153]"ononononononon peekitte (NULL)ext eingeben (max. 73 (NULL)eichen) :"
  593. 20530 [153]"+then"[200](sp$,73)"cossinonon":[153][163]2);
  594. 20540 [132]3,te$:[153]:te$[178]"(NULL) "[170][200](te$[170]sp$,73)
  595. 20550 nr[178]0
  596. 20560 nr[178]nr[170]1:[152]15,"p"[199](3)[199](nr)[199](0)[199](1)
  597. 20561 [141]55:[139]a[177]1[167]15000
  598. 20565 [161]#5,a$:[139]a$[179][177][199](255)[167]20560
  599. 20567 [139]nr[178]143[167][153]"":z$[178]"(NULL)ein (NULL)latz mehr !":[141]25:[153]:[141]35:[137]15000
  600. 20570 [129]i[178]nr[171]1[164]nr%[169][171]1
  601. 20580 [152]15,"p"[199](3)[199](i)[199](0)[199](1)
  602. 20590 [132]5,a$
  603. 20600 [152]15,"p"[199](3)[199](i[170]1)[199](0)[199](1)
  604. 20610 [152]5,a$:[130]
  605. 20620 [152]15,"p"[199](3)[199](nr%)[199](0)[199](1)
  606. 20630 [152]5,te$:[160]5:[141]55:[137]15000
  607. 20999 [178][178][178][178][178][178][178][178] daten speichern [178][178][178][178][178][178][178][178][178]
  608. 21000 z$[178]" str$ a t e n   s p e i c h e r n "
  609. 21005 [159]6,8,3,"directory":[160]6
  610. 21010 zz$[178]z$:[141]55:z$[178]zz$:[139]a[179]2[167]21100
  611. 21015 [139]a[179][177]62[167]15000
  612. 21020 [153]"load"li$(0):[153]""mu$:[153]"onon";
  613. 21030 [141]25
  614. 21040 [153]" str$ies ist keine (NULL)iga - (NULL)aster str$iskette!"
  615. 21050 [153]" (NULL)oll es eine werden ? (j/n)"
  616. 21060 [153]""mu$
  617. 21070 [141]15:[139]a$[178]"n"[167]15000
  618. 21080 [139]a$[179][177]"j"[167]21070
  619. 21090 [159]6,8,3,"directory,l,"[170][199](76)
  620. 21092 [152]15,"p"[199](3)[199](144)[199](0)[199](1):[152]6,[199](255)
  621. 21095 [160]6
  622. 21096 zz$[178]z$:[141]55:z$[178]zz$:[139]a[177]1[175]a[179][177]50[167][160]6:[141]81:[137]15000
  623. 21100 s%[178]1:[141]23000:[160]5:[139]a[177]1[167]15000
  624. 21101 [139][200](f2$,1)[179][177]"(NULL)"[167]21108
  625. 21102 [153]"";:z$[178]" unzul@ssiger asciletyp !! wait":[141]25
  626. 21103 [141]15:[139]a$[179][177]" "[167]21103
  627. 21104 [137]21000
  628. 21108 [139]nr%[178]0[167]21120
  629. 21110 [152]15,"s:"[170]fi$
  630. 21120 [159]9,8,2,fi$[170]",s,w"
  631. 21130 [152]9,li$(0):[152]9,li$(1):[152]9,s$:[152]9,nm:[152]9,as
  632. 21140 [129]i[178]1[164]nm:[129]j[178]0[164]2:[152]9,m$(j,i):[130]:[130]
  633. 21150 [152]9,rr%
  634. 21160 [129]i[178]1[164]as[172]rr%:[129]j[178]1[164]nm[173]2:[152]9,h(i,j):[152]9,g(i,j):[130]:[130]
  635. 21170 [129]i[178]1[164]as[172]rr%:[152]9,d$(i):[130]
  636. 21180 [129]i[178]1[164]as[172]rr%:[129]j[178]1[164]nm[173]2
  637. 21190 [152]9,e$(i,j)
  638. 21200 [130]:[130]
  639. 21210 [129]i[178]1[164]nm
  640. 21220 [152]9,pp(i):[152]9,mp(i):[152]9,pt(i):[152]9,mt(i)
  641. 21230 [152]9,gw(i):[152]9,un(i):[152]9,vl(i):[152]9,pl(i)
  642. 21240 [130]:[152]9,pl(0)
  643. 21250 [160]9:[141]55
  644. 21260 [139][197](fk$)[179][177]0[167]15000
  645. 21270 da$[178]"":[129]i[178]0[164]2
  646. 21280 da$[178]da$[170][201]("0"[170][202]([196]([194](252[170]i)),2),2)
  647. 21290 [139]i[179][177]2[167]da$[178]da$[170]"."
  648. 21300 [130]
  649. 21310 tm$[178]"":[129]i[178]52286[164]52293
  650. 21315 [139]i[178]52288[176]i[178]52291[167]tm$[178]tm$[170]"-":[130]
  651. 21320 tm$[178]tm$[170][202]([196]([194](i)[171]48),2,1)
  652. 21330 [130]
  653. 21335 [139][194](52295)[178]1[167]21338
  654. 21336 [139][197](tm$)[178]12[167]21340
  655. 21337 tm$[178][202]([196]([197](tm$)[170]12),2)[170][202](tm$,3)
  656. 21338 [159]7,8,4,"directory"
  657. 21340 [139][197](nr$)[178]0[167]21380
  658. 21350 [152]15,"p"[199](4)[199](nr%)[199](0)[199](1)
  659. 21360 [152]7,"(NULL)"[202](f2$,2,26)da$[202](f2$,36,32)tm$
  660. 21370 [160]7:[137]230
  661. 21380 nr[178]0
  662. 21390 nr[178]nr[170]1:[152]15,"p"[199](4)[199](nr)[199](0)[199](1)
  663. 21400 [161]#7,a$:[139]a$[179][177][199](255)[175]a$[179][177]"(NULL)"[167]21390
  664. 21410 [152]15,"p"[199](4)[199](nr)[199](0)[199](1)
  665. 21420 [152]7,"(NULL) "[200](fi$,12)"   "da$"  "da$;[200](sp$,22)tm$"  "tm$
  666. 21430 [160]7:[137]230
  667. 21999 [178][178][178][178][178][178][178][178][178] [211]ec[164]ry f2 [178][178][178][178][178][178][178][178][178][178][178]
  668. 22000 s%[178]2:z$[178]" str$ i r e c t o r y   asc. 2 ":[141]23000:[137]15000
  669. 22499 [178][178][178][178][178][178][178][178][178] datei l[172]schen [178][178][178][178][178][178][178][178][178][178]
  670. 22500 z$[178]" str$ a t e i   l * s c h e n "
  671. 22510 s%[178]0:[141]23000:[139]a[177]1[167][160]5:[137]15000
  672. 22520 [139][200](f2$,1)[179][177]"(NULL)"[167][152]15,"s:"[170]fi$
  673. 22530 [152]15,"p"[199](3)[199](nr%)[199](0)[199](1)
  674. 22540 [152]5,"(NULL)"[170][202](f2$,2)
  675. 22550 [160]5:[141]55:[137]15000
  676. 22699 [178][178][178][178][178][178][178] [211]ec[164]ry [197]idate [178][178][178][178][178][178][178]
  677. 22700 [159]8,8,5,"directory"
  678. 22710 [141]55:[139]a[177]1[167][160]8:[137]15000
  679. 22720 nr[178]0:de[178]0
  680. 22730 nr[178]nr[170]1:[152]15,"p"[199](5)[199](nr)[199](0)[199](1)
  681. 22735 [132]8,a$:[139]a$[178][199](255)[167]22760
  682. 22737 [139]([200](a$,1)[178]"(NULL)"[176][200](a$,1)[178]"(NULL)")[175]de[178]0[167]22730
  683. 22738 [139][200](a$,1)[178]"(NULL)"[167]de[178]de[170]1:[137]22730
  684. 22740 [152]15,"p"[199](5)[199](nr[171]de)[199](0)[199](1)
  685. 22750 [152]8,a$:[137]22730
  686. 22760 [129]i[178]nr[171]de[164]nr:[152]15,"p"[199](5)[199](i)[199](0)[199](1)
  687. 22770 [152]8,[199](255):[130]
  688. 22780 [160]8:[137]15000
  689. 22999 [178][178][178][178][178][178] [211]ec[164]ry f2 lesen [178][178][178][178][178][178][178][178]
  690. 23000 [159]5,8,3,"directory"
  691. 23010 zz$[178]z$:[141]55:z$[178]zz$
  692. 23020 [139]a[179][177]62[167]23030
  693. 23021 [153]"load"li$(0):[153]""mu$:[153]"onon";:[141]25
  694. 23022 [153]"":z$[178]"(NULL)eine (NULL)iga - (NULL)aster str$iskette !":[141]25:[153]
  695. 23023 [153]""mu$:[153]"onononon";:[141]35:[160]5:[137]15000
  696. 23030 [139]a[177]1[167][160]5:[142]
  697. 23040 nr[178]0:en[178]0
  698. 23050 [153]"load"li$(0):[153]""mu$:[153]"onon";:[141]25
  699. 23052 [153]""mu$;
  700. 23053 [153]""
  701. 23056 nr[178]nr[170]1:[152]15,"p"[199](3)[199](nr)[199](0)[199](1)
  702. 23057 [151]646,1[171](nr[173]2[178][181](nr[173]2))[172]4
  703. 23060 [132]5,fi$:[139]fi$[179][177][199](255)[167]23068
  704. 23065 nr[178]nr[171]1:en[178]nr:[153]" valnde "
  705. 23067 [137]23080
  706. 23068 [139]dr[178]3[176]s%[179][177]2[167]23070
  707. 23069 [152]4,""[202]([196](nr),2)"."[199](16)"05"[200](fi$,35):[152]4,""[202](fi$,36)
  708. 23070 [153][202]([196](nr),2)"."[163]4)fi$:[139]nr[173]5[179][177][181](nr[173]5)[167]23056
  709. 23080 [139]s%[179][177]2[167]23087
  710. 23082 [141]15:[139]a$[178]"x"[167][160]5:[137]15000
  711. 23083 [139]a$[178]"+"[167]23050
  712. 23084 [139]a$[179][177]"-"[167]23082
  713. 23085 nr[178]nr[171]10:[139]nr[179]0[167]nr[178]0
  714. 23086 [137]23050
  715. 23087 [153]""zu$" (NULL)ummer ";:[139]s%[178]1[167][153]"(bzw. ascilename) ";
  716. 23088 [153]": ";:[132]3,nr$:[153]
  717. 23089 [139]nr$[178]"x"[167]a[178]2:[142]
  718. 23090 [139]nr$[178]"+"[167]23050
  719. 23100 [139]nr$[179][177]"-"[167]23107
  720. 23105 nr[178]nr[171]10:[139]nr[179]0[167]nr[178]0
  721. 23106 [137]23050
  722. 23107 [139]([198](nr$)[179]48[176][198](nr$)[177]57)[175]s%[178]1[167]fi$[178][200](nr$[170]sp$,12)[170]"(NULL)right$(NULL)atn":[142]
  723. 23110 nr%[178][197](nr$)
  724. 23120 [139]nr%[179]1[176]nr%[177]143[176](nr%[177]en[175]en[179][177]0)[167][153]"onon";:[137]23087
  725. 23125 [152]15,"p"[199](3)[199](nr%)[199](0)[199](1)
  726. 23126 [132]5,f2$:[139]f2$[179][177][199](255)[167]23130
  727. 23127 z$[178]" unzul@ssige (NULL)ummer ! ":[153]"";:[141]25:[141]15
  728. 23128 [139]a$[179][177]" "[167]23127
  729. 23129 [160]5:a[178]2:[142]
  730. 23130 fi$[178][202](f2$,3,12)[170]"(NULL)right$(NULL)atn":[142]
  731. 29999 [178][178][178][178][178][178][178][178][178][178] neue liga [178][178][178][178][178][178][178][178][178][178][178][178][178]
  732. 31000 [153]"load"li$(0)
  733. 31010 [153]""mu$
  734. 31020 z$[178]" n e u e   (NULL) i g a ":[153]"onon";:[141]25
  735. 31030 [153][163]5)"eingeben von :"
  736. 31040 [153][163]7)"1) - (NULL)ame / (NULL)aison"
  737. 31050 [153][163]7)"2) - (NULL)annschaftsnamen"
  738. 31060 [153][163]7)"3) - (NULL)pieltag"
  739. 31070 [153][163]7)"4) - str$atum"
  740. 31080 [153][163]7)"5) left$auptmen^"
  741. 31090 [153]mu$
  742. 31100 [141]15
  743. 31110 [139]a$[179]"1"[176]a$[177]"5"[167]31100
  744. 31120 [145][197](a$)[137]31130,31350,31570,31900,230
  745. 31130 [153]"load"[163]10)li$(0)
  746. 31140 [133]"onon (NULL)iga   ";l$
  747. 31150 [139]l$[178]"x"[167]31000
  748. 31160 li$(0)[178][200](l$[170]sp$[170]sp$,39)
  749. 31170 lg$[178]"":[129]j[178]1[164]39:b$[178][202](li$(0),j,1)
  750. 31180 [139]b$[178]"@"[176]b$[178]"sqr"[167]lg$[178]lg$[170]c$(1):[137]31235
  751. 31190 [139]b$[178]"*"[176]b$[178]"tan"[167]lg$[178]lg$[170]c$(2):[137]31235
  752. 31200 [139]b$[178]"^"[176]b$[178]"(NULL)"[167]lg$[178]lg$[170]c$(3):[137]31235
  753. 31210 [139]b$[178]"_"[167]lg$[178]lg$[170]"ss":[137]31235
  754. 31220 [139][198](b$)[177]192[175][198](b$)[179]229[167]lg$[178]lg$[170][199]([198](b$)[171]128):[137]31235
  755. 31230 lg$[178]lg$[170]b$
  756. 31235 [139][195](lg$)[177]247[167]j[178]40
  757. 31240 [130]:li$(1)[178]lg$
  758. 31250 [153]""[163]10)s$
  759. 31260 [133]"on (NULL)aison ";s$:s$[178][200](s$[170]sp$,9)
  760. 31270 [153]""[163]22)nm
  761. 31280 [133]"on atnnzahl (NULL)annschaften ";nm
  762. 31290 [139]nm[179]3[176]nm[177]20[167]31280
  763. 31300 as[178]nm[170](nm[173]2[178][181](nm[173]2))
  764. 31302 [153]" (NULL)^ckrunde (mid$/(NULL)) ?"
  765. 31303 [141]15
  766. 31304 [139]a$[178]"j"[167]rr%[178]2:[137]31310
  767. 31305 [139]a$[178]"n"[167]rr%[178]1:[137]31310
  768. 31306 [137]31303
  769. 31310 [153]:[153]:[153]:[141]80
  770. 31320 [141]15:[139]a$[178]"n"[167]31130
  771. 31330 [139]a$[179][177]"j"[167]31320
  772. 31340 [137]31000
  773. 31350 [153]"load"
  774. 31360 [129]i[178]1[164]nm
  775. 31370 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  776. 31380 [153][163]17)m$(0,i)[163]31)"(NULL)"
  777. 31390 [153]"on"z$(i);:[133]". (NULL)annschaft ";m$:[139][200](m$,4)[178]"x   "[167]31000
  778. 31400 m$(0,i)[178][200](m$[170]sp$,14)
  779. 31420 m$(1,i)[178]"":m$(2,i)[178]"":[129]j[178]1[164]14:b1$[178][202](m$(0,i),j,1):b2$[178]b1$
  780. 31430 [139]b1$[178]"@"[176]b1$[178]"sqr"[167]b1$[178]c$(1):b2$[178]c$(4):[137]31480
  781. 31440 [139]b1$[178]"*"[176]b1$[178]"tan"[167]b1$[178]c$(2):b2$[178]c$(5):[137]31480
  782. 31450 [139]b1$[178]"^"[176]b1$[178]"(NULL)"[167]b1$[178]c$(3):b2$[178]c$(6):[137]31480
  783. 31460 [139]b1$[178]"_"[167]b1$[178]"ss":[137]31480
  784. 31470 [139][198](b1$)[179]193[176][198](b1$)[177]228[167]31480
  785. 31475 b1$[178][199]([198](b1$)[171]128):b2$[178]b1$
  786. 31480 m$(1,i)[178]m$(1,i)[170]b1$:m$(2,i)[178]m$(2,i)[170]b2$
  787. 31490 [130]:[130]:[141]80
  788. 31530 [141]15
  789. 31540 [139]a$[178]"j"[167]31000
  790. 31550 [139]a$[178]"n"[167]31350
  791. 31560 [137]31530
  792. 31570 [141]17000:[139]st$[178]"x"[167]31000
  793. 31580 [139]af[179]1[176]af[177]as[167]31570
  794. 31590 ed[178]ed[173]rr%
  795. 31690 [129]i[178]af[164]ed
  796. 31700 [153]"load"
  797. 31710 [129]j[178]1[164]nm[173]2:[153]z$(j)". ";m$(0,j):[130]
  798. 31720 [153]"";:[129]j[178][181](nm[173]2)[170]1[164]nm:[153][163]20)z$(j)". "m$(0,j):[130]
  799. 31730 [153]"sys"[200]([196](i)[170]". (NULL)pieltag        "[170]s$[170]sp$,39)"wait"
  800. 31740 [129]k[178]1[164]nm[173]2
  801. 31750 [133]h$:[139]h$[178]"x"[167]k[178]nm[173]2:i[178]ed:[130]:[130]:[137]31000
  802. 31760 h(i,k)[178][197](h$):[139]h(i,k)[179]1[176]h(i,k)[177]nm[167][153]"on";:[137]31750
  803. 31770 [153]"on"m$(0,h(i,k));:[153][163]20);"log ";
  804. 31780 [133]g$:g(i,k)[178][197](g$):[139]g(i,k)[179]1[176]g(i,k)[177]nm[167][153]"on"[163]22);:[137]31780
  805. 31790 [153]"on";[163]22);m$(0,g(i,k))
  806. 31800 [130]:[153]"sys"[163]20)"   (NULL)orrekt (mid$/(NULL))?   wait"
  807. 31810 [141]15
  808. 31820 [139]a$[178]"j"[167]31850
  809. 31830 [139]a$[178]"n"[167]31700
  810. 31840 [137]31810
  811. 31850 [139]rr%[178]1[167]31890
  812. 31860 [129]k[178]1[164]nm[173]2
  813. 31870 h(i[170]as,k)[178]g(i,k):g(i[170]as,k)[178]h(i,k)
  814. 31880 [130]
  815. 31890 [130]:[137]31000
  816. 31900 [153]"load valingabe str$atum :":[153]
  817. 31910 [129]i[178]1[164]as:[153]
  818. 31920 [151]646,1[171](i[173]2[178][181](i[173]2))[172]4
  819. 31940 [153][163]29)d$(i)
  820. 31950 [153]"on"i;:[133]"cmd. (NULL)pieltag (left$inrunde)  ";d$(i):d$(i)[178][200](d$(i),10)
  821. 31960 [139]rr%[178]1[167]32000
  822. 31970 [153][163]29)d$(i[170]as)
  823. 31980 [153]"on"i[170]as;:[133]"cmd. (NULL)pieltag ((NULL)^ckrunde) ";d$(i[170]as)
  824. 31990 d$(i[170]as)[178][200](d$(i[170]as),10)
  825. 32000 [130]
  826. 32010 [153]:[153]:[153]:[141]80
  827. 32020 [141]15
  828. 32030 [139]a$[178]"n"[167]31900
  829. 32040 [139]a$[179][177]"j"[167]32020
  830. 32050 [137]31000
  831. 63000 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  832. 63001 [172][172][172][172]                         [172][172][172][172]
  833. 63002 [172][172][172][172] liga [171] master v3  v[145] : [172][172][172][172]
  834. 63003 [172][172][172][172]                         [172][172][172][172]
  835. 63004 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  836. 63005 [172][172][172][172][172][172][172]                   [172][172][172][172][172][172][172]
  837. 63006 [172][172][172][172][172][172][172]   frank [164]elke    [172][172][172][172][172][172][172]
  838. 63007 [172][172][172][172][172][172][172] teu[164]nenstr. 82 a [172][172][172][172][172][172][172]
  839. 63008 [172][172][172][172][172][172][172] 5880 luedenscheid [172][172][172][172][172][172][172]
  840. 63009 [172][172][172][172]                         [172][172][172][172]
  841. 63010 [172][172][172][172] tel.: 0 23 51 [173] 2 80 90 [172][172][172][172]
  842. 63011 [172][172][172][172]                         [172][172][172][172]
  843. 63012 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  844.